home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
CC_C
/
0696A.ZIP
/
ED7.C
< prev
next >
Wrap
Text File
|
1983-12-04
|
3KB
|
167 lines
/* ED7.C */
#include "ed0.c"
#include "ed1.ccc"
char pmtln[MAXLEN];
char pmtrfn[SYSFNMAX]; /* now both read and write filenames */
char pmtwfn[SYSFNMAX];
pmtmess(s1,s2) char *s1, *s2;
{
int x,y;
x=outxget();
y=outyget();
outxy(0,0);
outdelln();
pmt1line();
pmt1col(x);
scr_chr_attr(SETINTENSE);
fmtsout(s1,outxget());
fmtsout(s2,outxget());
scr_chr_attr(SETFAINT);
syscin();
pmt1line();
pmt1col(x);
pmt1file(pmtrfn);
pmt2file(pmtwfn);
pmt1mode(pmtln);
outxy(x,y);
}
pmtmode(s) char *s;
{
int x,y;
x=outxget();
y=outyget();
outxy(0,0);
outdelln();
pmt1line();
pmt1col(x);
pmt1file(pmtrfn);
pmt2file(pmtwfn);
pmt1mode(s);
outxy(x,y);
}
pmtrfile(s) char *s; /*changed: readfile */
{
int x,y;
x=outxget();
y=outyget();
outxy(0,0);
outdelln();
pmt1line();
pmt1col(x);
pmt1file(s);
pmt2file(pmtwfn); /* add writefile */
pmt1mode(pmtln);
outxy(x,y);
}
pmtwfile(s) char *s; /* new: writefile */
{
int x,y;
x=outxget();
y=outyget();
outxy(0,0);
outdelln();
pmt1line();
pmt1col(x);
pmt1file(pmtrfn);
pmt2file(s);
pmt1mode(pmtln);
outxy(x,y);
}
pmtedit()
{
pmtmode("edit: "); /* add blanks to assure erasing "command" */
}
pmtline()
{
int x,y;
x=outxget();
y=outyget();
outxy(0,0);
outdelln();
pmt1line();
pmt1col(x);
pmt1file(pmtrfn); /* change: separate read and write files */
pmt2file(pmtwfn);
pmt1mode(pmtln);
outxy(x,y);
}
pmtcol()
{
int x,y;
x=outxget();
y=outyget();
pmt1col(x);
outxy(x,y);
}
pmtcmnd(mode,buffer) char *mode, *buffer;
{
int x,y;
x=outxget();
y=outyget();
pmt1mode(mode);
getcmnd(buffer,outxget());
}
pmt1mode(s) char *s;
{
int i;
outxy(60,0); /* change of column location */
scr_chr_attr(SETINTENSE);
fmtsout(s,60);
scr_chr_attr(SETFAINT);
i=0;
while (pmtln[i++]= *s++) {
;
}
}
pmt1file(s) char *s;
{
int i;
outxy(25,0);
scr_chr_attr(SETINTENSE);
if (*s==EOS) {
fmtsout("no rdfile",25); /* change of message */
}
else {
fmtsout(s,25);
}
scr_chr_attr(SETFAINT);
i=0;
while (pmtrfn[i++]= *s++) {
;
}
}
pmt2file(s) char *s; /* new: write out writefile name or "no wrtfile" */
{
int i;
outxy(40,0);
scr_chr_attr(SETINTENSE);
if (*s==EOS) {
fmtsout("no wrtfile",40);
}
else {
fmtsout(s,40);
}
scr_chr_attr(SETFAINT);
i=0;
while (pmtwfn[i++]= *s++) {
;
}
}
pmt1line()
{
outxy(0,0);
scr_chr_attr(SETINTENSE);
fmtsout("line: ",0);
putdec(bufln(),5);
scr_chr_attr(SETFAINT);
}
pmt1col(x) int x;
{
outxy(12,0);
scr_chr_attr(SETINTENSE);
fmtsout("column: ",12);
putdec(x,3);
scr_chr_attr(SETFAINT);
}